home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
program
/
eflibpt4.zip
/
DEMO
/
STRINGS
/
STRING2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-08-16
|
1KB
|
38 lines
{ Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
Demonstration; basic string handling #2
EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED. }
uses EFLIBBAS, EFLIBTXT;
begin
WriteLn;
WriteLn (StringFixedCentered(StringDoubled('Flexible routines for'), 79));
WriteLn (StringFixedCentered(StringDoubled('string handling!'), 79));
WriteLn;
WriteLn (StringCentered('- Some features -' + StringFill (60, #32)));
WriteLn;
WriteLn (StringFill (15, #32), { 10 blank spaces }
StringStripped ('- Remove leading or trailing blank spaces '), '!');
WriteLn (StringSpace (15), { 10 blank spaces }
StringReplace ('- Replace x from inside a string!', 'x', 'substrings'));
WriteLn (StringSpace (15),
'- Count the occurrence of substrings inside strings (',
StringOccurrence ('z', 'zzzZ'), ')!');
WriteLn (StringSpace (15),
'- Search positions of substrings in many ways (',
StringForwardPos ('1', '121', 2), '/',
StringBackwardPos ('1', '121', 2), ')!');
WriteLn (StringSpace (15),
'- And much more!');
end.